home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs46.d81 / xmashits.sda / COLORS (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  380b  |  19 lines
  1. 2 IFFL=0THENFL=1:LOAD"H",8,1
  2. 7 IFFL=1THENFL=2:LOAD"C",8,1
  3. 8 IFFL=2THENFL=3:LOAD"D",8,1
  4. 10 KH=8*16
  5. 92 TR=4096+13*256+12*16+14
  6. 93 POKETR,3:POKETR+1,3:GOSUB1000
  7. 95 KH=8*16
  8. 1000 REM
  9. 1004 PRINT"[147][144]":POKE53281,8
  10. 1005 POKE53280,1
  11. 1010 P=12*4096+256:IN=P+156:CL=P+101:DE=P+167
  12. 1012 AR=P+128:CA=P+137:BR=P+217:CB=P+226
  13. 1099 SYSIN
  14. 1100 POKE CA,11*16+4 :SYS AR
  15. 1110 POKE CB,3:SYS BR
  16. 1111 POKE53265,PEEK(53265)OR16
  17. 1200 SYS4096+14*256+KH
  18. 2000 KH=2:GOTO1200
  19.